;;;Creates plan viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;Creates profile viewport on grid indices over NAVFAC standard ANSI-F size sheet border
;;;and profile grid block.
;;;
;;;Expects the border and grid block to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-2006
;;;
(defun c:ansifppvp ()
  (command)
  (setq old_vp_osmode (getvar"osmode"))
  (setq old_vp_cecolor (getvar "cecolor"))
  (setq old_vp_celtype (getvar "celtype"))
  (setvar "osmode" 0)
  (setvar "cecolor" "ByLayer")
  (setvar "celtype" "ByLayer")
  (vl-load-com)
  (vla-put-MSpace (vla-get-Activedocument (vlax-get-Acad-Object)) :vlax-false)
;;;  (command "pspace")
  (command ".-layer" "m" "c-vi027nplt" "")
  (command ".mview" "p" "1.3,13.55" "39.45,13.55" "39.45,26.45" "32.425,26.45" "32.425,27.45" "1.3,27.45" "")
  (command ".-layer" "m" "c-vi017nplt" "")
  (command ".mview" "p" "3.125,0.5" "28.125,0.5" "28.125,2.55" "30.125,2.55" "30.125,4.5" "37.125,4.5" "37.125,13.5" "3.125,13.5" "")
  (setvar "osmode" old_vp_osmode)
  (setvar "cecolor" old_vp_cecolor)
  (setvar "celtype" old_vp_celtype)
  (princ)
)